home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / tellthem.zip / TELLTHEM.MOD < prev    next >
Text File  |  1989-06-12  |  2KB  |  54 lines
  1. Here is some code that can be plugged into RBBSSUB5.BAS
  2.    (only code between the  "*****" need be added,
  3.             the rest is for reference only  ----  )
  4. that will allow you to display a text file to the Downloader
  5. just before the Download begins...the file is bypasses if 
  6. user does NOT have enough time left or the file is a Personall Download
  7.  
  8. the filename TELTHEM.DEF can be changed to anything you want...
  9. (this one just poped into my head )
  10. supports Smart Text and is NON INTERRUPTABLE
  11.  
  12. If the File "TELTHEM.DEF is NOT present routine is skipped
  13. also the file needs to be were you have your Welcome files
  14. since the calls to display the file are made thru "CALL BUFFILE" graphics
  15. versions are supported by adding the "G" or "C" for ANSI graphics version
  16.  
  17.  
  18. This mod is for Maple version of RBBS but should work in any version
  19. of RBBS 17
  20.  
  21.  
  22.  
  23. 20791 IF PERSONAL.DOWNLOAD THEN _
  24.          RETURN
  25.       CALL CHKTREMAIN (TIME.REMAINING!)
  26.       IF SUBROUTINE.PARAMETER = -1 THEN _
  27.          FILESYS.PARAMETER = 6 : _
  28.          RETURN
  29.       OK = TRUE
  30.       IF (INT(BLOCKS.IN.FILE# / 60) + 1) > INT(TIME.REMAINING!) THEN _
  31.          A$ = "Not enough time left!" : _
  32.          CALL UPDTCALR (FILE.NAME$ + " " + A$,2) : _
  33.          CALL QTPUT (A$,1): _
  34.          A$ = "" : _
  35.          OK = FALSE : _
  36.          RETURN
  37. '****************************** Add This code only ************************
  38. '
  39.      NOTIFY$ =  WELCOME.FILE.DRV.PATH$ + _
  40.          "TELTHEM.DEF"                         'Pe 06/12/89
  41.     STOP.INTERRUPTS = TRUE                     'Pe 06/12/89
  42.     CALL BUFFILE (NOTIFY$,X)                   'Pe 06/12/89
  43. '
  44. '**********************  END OF MOD  **************************************
  45.       CALL AUTOLOGOFF            'Autologoff mod
  46.       CALL CHECKRATIO (TRUE)
  47.       RETURN
  48. 20810 CALL SETABORT (DELAY!,6)
  49.  
  50.  
  51. EnjoY !!!
  52.  
  53. Pete Eibl <Maple Street BBS (414-771-2805 ) 1200 - 9600 Baud  HST
  54.